unit UWorkerInfo;

interface

type
  TWorkerInfo = class(TObject)
  private
    FClassGuid: string;
    FClassName: string;
    FWorkerID: string;
    FClassID: string;
    FGuid: string;
    FWorkerName: string;
    FWorkerPass: string;
  public
    property Guid: string read FGuid write FGuid;
    property WorkerID: string read FWorkerID write FWorkerID;
    property WorkerName: string read FWorkerName write FWorkerName;
    property WorkerPass: string read FWorkerPass write FWorkerPass;
    property ClassGuid: string read FClassGuid write FClassGuid;
    property ClassID: string read FClassID write FClassID;
    property WorkerClassName: string read FClassName write FClassName;
  end;

  TRightInfo = class
  private
    FRightName: string;
    FPID: Integer;
    FFunName: string;
    FLibName: string;
    FID: Integer;
    FKind: Integer;
    FSerialID: Integer;
  public
    property ID: Integer read FID write FID;
    property PID: Integer read FPID write FPID;
    property SerialID: Integer read FSerialID write FSerialID;
    property RightName: string read FRightName write FRightName;
    property FunName: string read FFunName write FFunName;
    property LibName: string read FLibName write FLibName;
    property Kind: Integer read FKind write FKind;
  end;

implementation

end.
